RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**F [LE®*1D**LAYOUT Lt 
LL AAAAAA YY YY 000000 UU UU TTTTTTTTTT : 
LL AAAAAA YY YY 000000 UU UU TTTTTTTTTT 3 
LL AA AA YY YY 00 00 UU UU TT 3 
LL AA AA YY YY 00 00 UU UU TT 3 
LL AA AA YY YY 00 UU UU TT $ 
LL AA AA 3 ei 00 00 UU UU TT ; 
LL AA AA YY 00 00 UU UU TT 3 
LL AA AA YY 90 00 UU UU TT é 
LL AAAAAAAAAA YY 00 00 UU UU TT 3 
ag AAAAAAAAAA YY 00 00 UU UU TT é 
LL AA AA YY 00 00 UU UU TT cae $ 
ul AA AA YY 00 00 UU UU TT anne 3 
LLLLLLLLLL AA AA YY 000000 UUUUUUUUUU TT nee 3 
LLLLLLLLLL AA AA YY 000000 UUUUUUUUUU TT adiinls : 
LL T1111] SSSSSSSS 3 
LL II1111 SSSSSSSS 3 
LL I] SS 3 
LL II SS 3 
LL Il SS F 
LL Il SS 3 
LL II SSSSSS 3 
Li II SSSSSS : 
LL II SS 3 
LL II ss F 
LL Il SS 3 
LL II SS $ 
LLELLLLLLLL IIII11 SSSSSSSS 3 
LLLLLLLLLL HII] SSSSSSSS : 
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MODULE Layout ( IDENT = ‘v04-000' 

UBLISS32L, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE 
ai ONEXTERNAL = LONG-RELATIVESJ 
BEGIN 


BP PESE SECIS T SSIS STITT TTT TTT Tree erect ii citi Tits itt iii iit iti tity 
'® w 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
:* ALL RIGHTS RESERVED. * 
'e ea 
'e THIS ie kerk IS FURNISHED UNDER A LICENSE AND MAY BE USED AND og IED * 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
iw INCLUSION OF THE ABOVE Typist NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
iw OTHER PERSON. NO TiTLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
* 
® 
® 
* 
* 
® 
* 
® 
® 
® 


is THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
be onRPOkat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


2 I OOOOOOOCOO 
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i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: Processes the .LAYOUT command. 

ENVIRONMENT: Transportable 

AUTHOR: R.W. Friday CREATION DATE: April, 1979 


OWONAVEWN "OO OONAUESWN (OO DNAUES WN OOWONOUSWN 
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a a nn a a a at SS I SS Ss SS SS SS Ss SS SS SS 42 OOOO 
* 
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Revision History 1B-te 300-1382 99:36 
pares "Revision History’ 

MODIFIED BY: 

005 REROOOOS Ron Randall 07-Mar-198 
E 
ie 


tee | edit of all modules. Updated module 
copyright dates. Changed require files to 


22222 

Dl a et at ee te ee ee 
DONOULS WO 
a 


oo 


a6 AX=11 Bliss-32 V4.0-74 
RUNOFF .SRCJLAYOUT.BLI; 


3 
names 
BLISS li 


idents, 
brary. 
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ZSBITL ‘Module Level Declarations’ 


' 
TABLE OF CONTENTS: 
INCLUDE FILES: 


3 9 1 

; 1 

3 § 1 

§ ii 

s , o4 

; 5 : 

; ° 5 1 LIBRARY "NXPORT: XPORT"; ' XPORT Librar 

g re : § ! REQUIRE "REQ:RNODEF'; ! RUNOFF sariant definitions 
; «6 u 0190 1 SIF DSRPL US %THEN 

; 63 U 13 LIBRARY TREG. DPLLIB'; ! DSRPLUS BLISS Library 
: 65 193 1 LIBRARY "REQ:DSRLIB'; ! DSR BLISS Librar 
; 6 194 1 «Fl ' 
; 6 195 1 

: 2 139 1 | EXTERNAL REFERENCES 

: 70 198 1: 

: (71 199 1 EXTERNAL 

oe 0200 1 HCT : HCT_DEFINITION, 

c+ ¥ 1 1 IRA: FIXED STRING 

; é 1 NUMPRM : NURPRM DEFINE, 

3 o 3 } PHAN : PHAN "DEFINITION: 

ie b2 1 EXTERNAL LITERAL ‘Error messages 

> 78 6 1 RNF INM; 

: 79 07 1 

: 80 08 1 EXTERNAL ROUTINE 

3 81 0209 1 ERMA, 

 & 0210 1 GE' NUM, 

; 8 0211 1 SKPSEP: 

: 84 0212 1 


<r 


Module Level Declarations 
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ee ee ee el ce ee ce ee he ce ce cd ce ed ee cd ee ed ce a ed ec ee ce ee ee ee ee ee ee ee eee 
ene Mee ee eis oan ~0nb-umne.2t bie OOoooo°ooono 
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1b-5e 1984 00:47:4 AX=-11 Bliss-32 V4.0-74 P & 
1 300-1 $8e 93:60:65 RUNOFF .SRCJLAYOUT.BLI; es 


GLOBAL ROUTINE LAYOUT (HANDLER_CODE) : NOVALUE = 


"FUNCTIONAL DESCRIPTION: 
See the ABSTRACT, above 
FORMAL PARAMETERS: 
HANDLER_CODE is a dummy, used only for conformance with other routines. 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


: 
. 
| 
. 
' 
* 
4 
. 
' 
. 
i] 
. 
' 
. 
' 
. 
' 
. 
' 
+ 
' 
. 
' 
. 
t 
7 
4 
. 
' 
. 
' 
. 
4 
. 


BEGIN 


'If user said .LAYOUT without any number, set up for standard Layout. 
‘Ditto if user said .LAYOUT 0 

‘Ditto if he input some cresty numb 
IF .NUM_LENGTH EQL 0 ‘Nothin 
ne (.NUM_VALUE EQL 0) ! ,LAYQU 


'The standard layout starts with the next page, at the latest. 
HCT_LAYOUT_NP = LAYOUT_STANDARD; 
HCT_LAYOUTR_NP = 0; 


'Change layout immediately if at top of first page. 
IF PHAN YOP_FIRST . . tes 


er. 
9 goon treed 


BEGIN 
HCT_LAYOUT = LAYOUT_STANDARD; 
HCTLAYOUTN = 0; 


RETURN; 
END; 

'See if user said .LAYOUT 1,n or .LAYOUT 2,n or .LAYOUT 3,n 
NUM_VALU 


Ww 
OR ({NUM_VALUE LSS 0) 
THEN ru Lt t ified 
‘Illegal layout specified. 
a 
MA_(RNFINM, FALSE); 
ETURN; 
ND; 
‘User did soy -LAYOUT 1 .....+4, SO process it. : j 
HCT_LAYOUT_NP = .NUM_VALUE; 'Page layout encoding number is given directly by the user. 


—_ 
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SN NS PPAAIIVIVIVI Fe 
VIAN INISSELSARERAS WESERESES. 


15 
1b-Se 1984 00:47:4 AX-11 Bliss-32 V4.0-74 P 
Module Level Declarations 1 =300 138% 90:36:28 RUNOFF .SRCJLAYOUT.BLI; _ “as 


!Now, skip either a comma and/or spaces to get the d ter. 
; SKPSEP (IRA); oa og second parameter 


‘Now, attempt to get the second parameter, if opel aes 
NUM_RESULT = GETNOM (IRA, NUM_VALUE, NUM_SIGN, NUM_ 


'Do some preliminary validation 
tea «NUM_RESULT 


‘Erroneous number 


LENGTH); 


OOQOOCOCOCOCOOCOCOOOCOOOOCOCOOOOOO 
WOOoo INNS 
Wwr—O Wie 


HCT _LAYOUTN_NP = 1; 
RETORN; 
END; 
4 IF .NUM_VALUE LEQ 0 
S? THEN 
Hy) ! gore or a negative number not allowed 
88 ERMA (RNFINM, FALSE); 
89 HCT_LAYOUTN_NP = 1; 
90 RETORN; 
91 
4 SE 
+ HCT_LAYOUTN_NP = .NUM_VALUE; 
0295 'If at the top of the first page, 
0 38 'the new taxeus takes effect immediately. 
9 9 IF .PHAN_TOP_FIRST 
98 HEN 
8 99 BEGIN 
00 HCT_LAYOUTN = .HCT_LAYOUTN_NP; 
$33) HCT_LAYOUT = .HCT_CAYOUT_NP; 
208 END; 
030 
0304 END; 'End of LAYOUT 
-TITLE LAYOUT 
-IDENT \Vv04-000\ 
-EXTRN HCT, IRA, NUMPRM 
-EXTRN PHAN, RNFINM, ERMA 
“EXTRN GETNUM, SKPSEP 
-PSECT S$CODES,NOWRT,2 
OOFC 00000 -ENTRY LAYOUT, Save R2,R3,R4,R5,R6,R7 ; 0213 
57 000000006 EF 9E 6 08 MOVAB IRA, R? : 
g G fr 43 MOVAB' ER R6 $ 
6 8F 19 MOVL #RNFINM, R5 : 
4 G EF E 1 NOVAB oS a RG é 
3 G EF E 3 MOVAB HCT+36, R3 F 
52 G EF 9 MOVAB NUMPRM+4, R2 ; 
Ae : c TSTL © NUMPRM+12 : 0239 
0 F BEQL : 
85 9 1 TSTL NUMPRM+4 3; 0240 
3 BNEQ 2$ F 
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LAYOUT 16-Sep-1984 00:47:4 AX-11 Bliss-32 V4.0-74 P 
Vv04- Module Level Declarations 12-80 8-1 386 99:60:48 RUNOFF .SRCJLAYOUT.BLI; ap? 
Be 1$: CLRQ HCT+3 : 
56 ’ é 5 ; BLBC PHAN 6, 7$ : 
FB OA ¢ A CLRQ HCT+2 3 
04 D RET : 
03 6? 9} 2$ CMPL PRM+4, #3 3 
4 14 4 BGTR : 
§ rf 4 TSTL peranes : 
1 4 BGEQ 4 : 
3 D4 47 3$ CLAL -(SP) : 
55 DD 49 PUSHL 5 : 
66 02 FB 4B CALLS #2, ERMA : 
04 4E RET : 
63 $6 dO 4F 4$ MOVL deat HCT+36 3 
DD 2¢ PUSHL R 3 
00000000G_ EF 01 FB 0005 CALLS #1, SKPSEP : 
08 A2 OF BRee PUSHAB NUMPRM+1 : 
04 Ad 9F QOOSE PUSHAB NUMPRM+8 5 
52 0D Beet PUSHL R : 
“s 57 Dd 000 PUSHL R F 
00000000G_ EF 04 FB 00065 CALLS #4, GETNUM 3 
FC A 50 D 549 MOVL RO, NUMPRM 3 
0c FC x: E9 0007 BLBC NUMPRM, 5$ 3 
50 62 00 00074 MOVL NUMPRM+4, RO 3 
OC 14 00077 BGTR : 
43 D4 00079 CLRL -(SP) 3 
55 DD 00078 PUSHL R5 3 
66 02 Fe 443 CALLS #2, ERMA 3 
046 A3 01 OD 080 5$: MOVL #1, HCT+40 ; 
04 pp ORE RET : 
04 A3 50 DO 00085 6$: MOVL RO, HCT+40 3 
04 64 5° 00089 BLBC PHAN+24, 7$ : 
FB AS 63 7D 0008C MOVQ HCT+36, HCT+28 : 
04 00090 7$: 3 
; Routine Size: 145 bytes, Routine Base: S$CODE$ + 0000 
s 178 0305 1 
3; 179 0306 1 END 'End of module 
; 180 0307 0 ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
3; SCODES 145 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


3 Library Statistics 


erm = SyGQOLs cococerce Pages Processing 
File Total Loaded Percent Mapped Time 


LAYOUT 18-50 $ep-1984 00:47:4 AX-11 Bliss-32 V4.0-74 P 7 
vot=boo Module Level Declarations =3087 138% 99:50:48 RUNOFF. SRCILA LAY ot out Nate (4) 


“SESSSDUASB:ERUNDFF-SRCIDSALI.L32:1 1848 8 oe 00:00:3 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:LAYOUT/OBJ=OBJ$:LAYOUT MSRC$:LAYOUT/UPDATE=(ENH$:LAYOUT) 


ig 145 code + 0 data bytes 
un 704. 
Slaseed Time: 00:14.2 
Lines/CPU Min 410 
Lexenes/CPU-Min: 16904 

pee | Used: 48 pages 
Compilation Complete 
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